#
#this is a comment

rawdata <-c(55,56,98,100,15,12,33,45,32,67,82,19,25)

max(rawdata)
min(rawdata)
summary(rawdata)

#Plot min/max/mean lines
plot(rawdata, type="b", xlab="time in Seconds", ylab="Rawdata")
> abline(h=max(rawdata),v=0)
> abline(h=min(rawdata),v=0)
> abline(h=mean(rawdata),v=0)

